home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / COMMUNIC / 0132.ZIP / BKSPACE.BAS < prev    next >
BASIC Source File  |  1982-04-04  |  779b  |  18 lines
  1.  
  2.  
  3. 5000 REM THIS PATCH TO THE COMM SOFTWARE THAT COMES ON THE DOS DISK USES
  4. 5010 REM A RESIDENT ROUTINE TO PERFORM A PROGRAMMED BACKSPACE
  5. 5020 REM (SUB 2720). IT CHECKS EACH CHARACTER AND EXECUTES BACKSPACE
  6. 5030 REM AS REQUIRED. LINE 5115 IS OPTIONAL AND PROVIDES FOR PRINTING
  7. 5040 REM OF THE KEYBOARD AND OTHER INPUT DATA UTILIZING THE PARALLEL
  8. 5050 REM PRINTER PORT. THIS CAPABILITY IS ACTIVATED BY ENTERING VALUE
  9. 5060 REM IPRR=TRUE AT LINE 1820 AND THE PRINTER IS TURNED OFF BY
  10. 5070 REM SETTING VALUE IPRR=FALSE.
  11. 5080 REM * PUBLIC DOMAIN SOFTWARE *
  12. 5106 L2NH=LEN(B$):FOR ALLF=0 TO L2NH:B2B$=MID$(B$,ALLF+1,1)
  13. 5107 IF B2B$=CHR$(8) THEN GOSUB 2720:GOTO 5117
  14. 5110 IF LL<>IWT OR B2B$<>CR$ THEN PRINT B2B$; ELSE 5117
  15. 5115 IF IPRR THEN LPRINT B2B$;
  16. 5117 NEXT ALLF
  17.  
  18.